home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 1
/
Deutsche Edition 1.iso
/
amok
/
amok_lha
/
amok70.lha
/
PL0
/
errors.pl0
< prev
next >
Wrap
Text File
|
1993-08-15
|
276b
|
18 lines
CONST M := 0, N = 100 o = oh;
VAR ,a,b,c;
PROCEDURE P;
BEGIN s := 0; a = 5 *(b-1 END;
BEGIN
?a ? b;
WHILE a-0 DO
BEGIN
?b; -c := 0;
WHILE a > 0 BEGIN
IF ODD a c := c * -b;
b := 2*b a := a/2;
END;
P := 0; P;
CALL P; CALL 666; CALL a;
END